home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / FileTransferTools.mod < prev    next >
Encoding:
Text File  |  1995-08-07  |  1.9 KB  |  88 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        FileTransferTools.mod
  3.  
  4.      Contains:    CommToolbox File Transfer Tools Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE FileTransferTools;
  23.  
  24. IMPORT SYSTEM, Types, Dialogs;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31. (* DEFs *)
  32.     fdefType*                    = LONG("fdef");
  33.     fsetType*                    = LONG("fset");
  34.     fvalType*                    = LONG("fval");
  35.     flocType*                    = LONG("floc");
  36.     fscrType*                    = LONG("fscr");
  37.     fbndType*                    = LONG("fbnd");
  38.     fverType*                    = LONG("vers");
  39.  
  40. (* control *)
  41.     ftInitMsg*                    = 0;
  42.     ftDisposeMsg*                = 1;
  43.     ftSuspendMsg*                = 2;
  44.     ftResumeMsg*                    = 3;
  45.     ftMenuMsg*                    = 4;
  46.     ftEventMsg*                    = 5;
  47.     ftActivateMsg*                = 6;
  48.     ftDeactivateMsg*                = 7;
  49.     ftGetErrorStringMsg*            = 8;
  50.     ftAbortMsg*                    = 52;
  51.     ftStartMsg*                    = 100;
  52.     ftExecMsg*                    = 102;
  53.     ftSendMsg*                    = 103;
  54.     ftReceiveMsg*                = 104;
  55. (* setup *)
  56.     ftSpreflightMsg*                = 0;
  57.     ftSsetupMsg*                    = 1;
  58.     ftSitemMsg*                    = 2;
  59.     ftSfilterMsg*                = 3;
  60.     ftScleanupMsg*                = 4;
  61. (* validate *)
  62.     ftValidateMsg*                = 0;
  63.  
  64.     ftDefaultMsg*                = 1;
  65. (* scripting *)
  66.     ftMgetMsg*                    = 0;
  67.     ftMsetMsg*                    = 1;
  68. (* localization *)
  69.     ftL2English*                    = 0;
  70.     ftL2Intl*                    = 1;
  71.  
  72.  
  73. TYPE
  74.     FTSetupStruct* = RECORD
  75.         theDialog*:                Dialogs.DialogPtr;                                (* the dialog form the application *)
  76.         count*:                    INTEGER;                                (* first appended item *)
  77.         theConfig*:                Types.Ptr;                                    (* the config record to setup *)
  78.         procID*:                    INTEGER;                                (* procID of the tool *)
  79.     END;
  80.  
  81.     FTSetupPtr* = POINTER TO FTSetupStruct;
  82.  
  83.  
  84. (* $ALIGN RESET*)
  85. (* $POP*)
  86.  
  87.  END FileTransferTools.
  88.